home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ASMCODE.ZIP / TESTMOD.PAS < prev    next >
Pascal/Delphi Source File  |  1994-11-02  |  940b  |  47 lines
  1. { ────────────────────────────────────────────────────────────────────────
  2.  
  3.   This code is Copyright (c) 1994 by Jonathan E. Wright and AmoebaSoft.
  4.  
  5.   To communicate with the author, send internet mail to: NELNO@DELPHI.COM
  6.  
  7.   About this code:
  8.     Hey, it's just a test to see if the GUSMOD unit still works after I
  9.     butchered it...
  10.  
  11.     Read the info in GUSMOD.PAS
  12.  
  13.   ──────────────────────────────────────────────────────────────────────── }
  14.  
  15. PROGRAM TestMOD;
  16.  
  17. USES
  18.   GUSMOD, GUSHeap, NewCrt, Types;
  19.  
  20. VAR
  21.   I : INTEGER;
  22.  
  23. BEGIN
  24.   IF ParamCount <> 1 THEN
  25.   BEGIN
  26.     Writeln ('You must specify the name of a MOD file to play.');
  27.     Halt;
  28.   END;
  29.  
  30.   GUS_LoadMOD (ParamStr (1));
  31.   GUS_StartMOD;
  32.  
  33.   Writeln ('Press a key to exit.');
  34.  
  35.   ReadKey;
  36.  
  37.   Writeln ('Fading volume...');
  38.  
  39.   FOR I := 100 downto 1 DO
  40.   BEGIN
  41.     MODVolume := I;
  42.     Delay (10);
  43.   END;
  44.  
  45.   GUS_StopMOD;
  46.   GUS_DisposeMOD;
  47. END.